home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / amiconnect / amitcp / bin / sendnews < prev    next >
Text File  |  1996-02-26  |  1KB  |  42 lines
  1. /* Rexx
  2. ** Sendnews Version 2 - Enhanced
  3. */
  4.  
  5. options results
  6. address command
  7.  
  8. if exists("uuspool:newsrejects") then
  9. do
  10.   if show("P","CP5PORT") then address cp5port "GO_ Attempting To Post Previous News Rejects"
  11.   address command "nntpput uuspool:newsrejects AGAINLIST uuspool:newsrejects.tot NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
  12.   if RC < 20 then
  13.   do
  14.     if show("P","CP5PORT") then address cp5port "GO_ News Posted"
  15.     "copy uuspool:newsrejects uuspool:newsrejects.bak"
  16.     "delete uuspool:newsrejects"
  17.   end
  18.   else
  19.   do
  20.     if show("P","CP5PORT") then address cp5port "GO_ News Not Sent Again!"
  21.   end
  22. end
  23.  
  24. if exists("uuspool:newsout") then
  25. do
  26.   if show("P","CP5PORT") then address cp5port "GO_ Attempting to post News"
  27.   address command "nntpput uuspool:newsout AGAINLIST uuspool:newsrejects
  28.   NNTPSERVER $newsserver > con:0/0/640/50/Posting_News.../CLOSE/WAIT"
  29.   if RC < 20 then
  30.   do
  31.     if show("P","CP5PORT") then address cp5port "GO_ News Posted"
  32.     "copy uuspool:newsout uuspool:newsout.bak"
  33.     "delete uuspool:newsout"
  34.   end
  35.   else
  36.   do
  37.     if show("P","CP5PORT") then address cp5port "GO_ News Not Sent"
  38.   end
  39. end
  40.  
  41.  
  42.